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j /# v 

2 /* ETC : Global system definitions */ 

4 /* — TYPES. H - Portable type definitions */ 

5 /* */ 

6 

7 lifndef JTYPESJDEFINED 

8 Idefine _TYP£S_DEFIHED 

9 

10 lif {! defined (BIT32) ! defined (BIT16) ) 
U #exxor BIT1S or BIT32 must be defined 

12 lendif 
13 

14 /* Common types */ 

15 

16 typedef int bool ; 
17 

18 lifndef TRUE 
£| 19 # define FALSE ((bool) 0) 

20 # define TRUE ((bool) (! FALSE)) 

^ 21 lendif 

Pi 22 

^ 23 typedef signed char schax; 

^ 24 typedef unsigned char uchar; 



m 25 

26 lifndef WINNT 



27 Idefine KINCHAR ((char) 0x00) // 0x80 in WINNT.H!! 

28 Idefine MAXCHAR ((char) 0x7F) 

29 lendif 
30 



31 Idefine MINSCHAR ((char) 0x80) 

Q 32 Idefine MAXSCHAR ( (char) 0x7F) 

Q 34 Idefine hUNUCHAR ( (char) 0x00) 

i*T 35 Idefine MAXUCHAR ( (char) OxFF) 
J 36 

37 typedef void *_datap; 

38 typedef void * codep; //$$ "void * codep (void) would not work 
39 

40 lifdef cplusplus 

41 # define NULLD 0 

42 Idefine NULLC 0 

43 lelse 

44 Idefine NULLD ( (_datap> 0) 

45 Idefine NULLC (("codep) 0) 

46 lendif 
47 

48 lifndef NULL 

49 ^define NULL ((void *) 0) 

50 Jlendif 
51 

52 /♦ 

53 Notes: V* i 

54 , 

55 1. Types _datap and _codep are provided for sys teas /models * in which 

56 data pointers axe of different sire than code pointers: 1 See also 

57 type _pointer in the compatibility types section of this header file.. 

58 ♦/ \i, 

59 r " 
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/* Machine types 



typedef .unsigned char byte ; 

typedef -unsigned short int word; 
typedef unsigned long int dword; 

#define MINBYTE ( (byte) 0x00) 
tfifndef _WTNNT_ 

#define MAXBYTE ((byte) OxFF) 
tfendif 

#de£ine MINWORD ( (word) OxOOOOU) 
#ifndef _WTNNT_ 

#def ine MAXWORD ( (word) OxFFFFU) 
iendif 

#def ine MIND WORD ( (dword) OxOOOOOOOOUL) 
ffifndef _WTNNT_ 

#define MAXDWORD ((dword) 0 xFFFFFFFFUL ) 
#endif 

/* Tolerance types (hardware -dependent) 



typedef unsigned int uint; //guaranteed to be at least 16 bits wide, 

typedef signed int sint; //guaranteed to be at least 16 bits wide. 

ff define MINIOT (( int) 0x0000) 

#define MAX INT ( ( int) 0x7FFF) 

#def ine MINSINT ((sint) -32767-1) 

#define MAXSINT ((sint) 0x7FFF) 

#def ine MINUINT ( (uint) OxOOOOU) 

#define MAXUINT ( (uint) OxFFFFU) 



Notes : 



1*. 



2. 



3. 



4. 



Use tolerance types for variables that are expected to only taxe 
small values which will never exceed the minimum number of guaranteed 
bit width, so that the compiler can choose the actual type which the 
underlying hardware feels most comfortable in dealing with. 

Use of tolerance types is only allowed for variables of a local scope; 
it is prohibited for public/external variables. Writing the binary 
contents of a tolerance variable to a disk file is punishable by death. 

Negative values are not allowed for type int. (thus it is 15 bits wide 
instead of 16 bits wide.) Use type sint if you are planning to assign 
negative values to a variable. 

Alternatively , type int can be prohibited by #defining it as M $@$#$ w 
(in the end of this header file) and the use of uint or sint can 'be 
promoted instead. S ''-h 



5. Operations that result in overflow/ underflow beyond the minimum 
number of guaranteed bits yield undefined results and 1 should be 



avoided for all tolerance types. 



FIG. 17B 



1 

2 
3 
4 
5 
6 
1 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 



/* 

typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 



Portable types 



char int 8 

signed char sint8 

unsigned char uint8 

short int intl6 

signed short int sintlS 

unsigned short int uintlS 

long int int32 

signed " long int sint32 

unsigned long int uint32 



typedef unsigned char fig 6 

typedef unsigned short int flgl6 

typedef unsigned long int flg32 

typedef uint32 _ ctx; 
idefine NO CTX (( ctx)0) 



typedef uint32 _id32 ; 

#def ine NO_ID32 ( (_id32 ) 0 ) 

typedef uintlS idl6; 

idefine NOJtDlS (<_idl6)0) 

typedef _id32 _id; 

#define NO ID (( id)0) 



typedef int 8 

# define MININT8 
#define MAXINT8 

# define MINSINT8 
#define MAX SI NT 8 

# define MINUINT8 
Idefine MAXUINT8 

# define MXNXNT16 
# define MAXINT16 

tdefine MINSINT16 
# define MRXSINT16 

# define MINUINT16 
#define MAXTJINT16 

#define MININT32 
#define MAX INT 3 2 

idefine MINSINT32 
tfdefine MAXSINT32 

idefine MINUINT32 
tdefine MAXUINT32 



( int8) 
( int8) 

(sintS) 
(sintS) 

(uint8) 
(uintS) 

( intl6) 
( int!6) 

(sintl6) 
(sintl6) 

(uintl6) 
<uintl6) 

( int32) 
( int32) 

<siht32) 
(sint32) 

(uint32) 
(uint32) 



boolS ; 

0x00) 
0x7F) 

0x80) 
0x7F) 

0x00) 
OxFF) 

0x0000) 
0x7FFF) 

0x8000) 
0x7FFF) 

OxOOOOU) 
OxFFFTU) 

OxOOOOOOOOL) 
0x7FFFFFFFL) 

OxSOOOOOOOL) 
0x7FFFFFFFL) 

OxOOOOOOOOUL) 
0 xFFFFFFFFUL ) 



// max. size between jdatap & uint32 

// 32-bit id 
// X 6-bit id 
// default id (32-bit) 

// the shortest stand-alone boolean 
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1 

2 /* 

3 Notes : 

4 ' • 

5 1. Use ihtlS and int32 when you know the exact bit width that you want 

6 for your variable, but you do not care about the interpretation of 

7 the sign of the variable. This way, the compiler will choose an 

8 actual signed or unsigned type, depending on what the underlying 

9 hardware feels most comfortable in dealing with. 
10 

11 2. As an example, variables that are ideal candidates to be declared as 

12 int!6 or int32 are sets of bitflags: although the bit capacity of such 

13 a variable is crucial, the variable will never be interpreted as a 

14 signed or unsigned value. 
15 

16 3 . All integer operations defined by the C language are valid on all of 

17 the portable types , and overflow/underflow operations beyond 

18 the specified bit widths have predictable behaviour. 

^ 19 V 

** 21 #endif // defined TYPES DEFINED 

W 22 
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/* 
/* 
/* 
/* 



ETC: Global system definitions 
STATUS. H - global system statae 



ffifndef 
# define 



_STATUS_DEFINED 
"status. DEFINED 



/* define status type — 

#define _stat uint 

/* define if xxx macros 



^define if_ret(s,e) if ({(s) = (e) ) f= ST_OK) 

^define if cleanup (s ,e , c) if ( ( (s) = (e)) ■= ST OK) 



return 
return 



(is)) 
<<<c) 



is))) 



/* — - define general status values 



^define ST OK 



0 // successful operation 



/* structures /tables manipulation */ 



#define ST_ALLOC 
#define ST_NO_ROOM 
#define ST_OVERFLOW 
#define ST_UNDERFLOW 
#define ST_EMPTY 
#define ST_FULL 
tdefine ST_EOF 

/* valchx */ 
#define ST_INVALID 
# define ST_BAD_VALUE 
#define ST_OUT_OF_RANGE 
# define ST_NULL_PTR 
#define ST_BAD_SYNTAX 
#define ST_BAD_NAME 

/* BAD errors */ 
# define S T_UNEXPE CTED 
#define ST_PANIC 
#define ST_DEADLOCX 

/* failures */ 
#define ST_REFUSE 
#define ST_NO_ACTION 
#define ST_F AILED 

/* state checx */ 
#define ST_NOT_INITED 
#def ine ST_NOT_ACTIVE 
#def ine ST_NOT_OPEN 

/* i/o system */ 
fldefine ST_IOERR 
Idefine ST_BAD_CHKSUM 

/* set-related */ 



20 // can't alloc (for variable size alloc/pool) 

21 // can't alloc fixed sz entry in fixed sz pool 

22 // value, buffer, whatever may overflow 

23 // value, buffer, counter, whatever may underflow 

24 // QUEUE /smth is empty - no elements 

25 // queue/smth is full 

26 // end of file 



30 // value not valid in operation context 

31 // value not valid in module's context 

32 // value out of range 

33 // NULL ptr is not valid in operation context 

34 // text/f onaatted data syntax error 

35 // name invalid in module's context 



40 // unexpected condition of parm or external object 

41 // unexpected condition of self or internal object 

42 // deadlock detected 



45 // oper rejected voluntarily (inappropriate state) 

46 // oper requires no action (eg close closed file) 

47 // operation failed / not successful 



50 // object is not initialized 

51 // oper allowed only when object is active 

52 // oper allowed only when object is open 



60 // I/O error - file system / peripherals error. 

61 // wrong chJcsum V£ iS" 
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31 
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33 
34 
35 
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ifdefine ST_NOT_FOUND 
Sdefine ST DUPLICATE 



62 // requested item not found 

63 // duplicated item is not allowed 



/* critical section / privileges */ 

ff define ST_BUSY 70 // in critical section (dynamic, short period) 

Sdefine ST_ACCESS_DENIED 71 // temporary lack of access (dynamic, long period) 
fldefine ST_PRIVTL£GZ 72 // privilege violation (static) 

tfdefine ST_SCOPS_VTOLATION 73 // (no comment) 

^define ST_BAD _ACCESS 74 // access type not appropriate / not possible 



/* operation status */ 
#define STJPENDING 
#define STJTIMEOUT 
#define ST_CANCELLED 
#define ST_ABORTED 
#define ST_R£SET 
fldefine ST_CLEANUP 
tfdefine S T_0VERRI DE 

/* API */ 

#define ST_CANT_BIND 
ff define ST_FPI_ERROR 
fldefine ST WRONG VERSION 



80 // operation is pending 

81 // timeout has expired 

82 // operation cancelled on user's request 

83 // op. aborted on sys tem/ module ' s request 

84 // object has been orderly reset 

85 // object is about to be destroyed, now in cleanup 

86 // operation/entity was overriden 



90 // can't bind / resolve name, handle, etc. 

91 // invalid function request, etc. 

92 // incompatible version of data/code detected 



# define ST_NOT_IMPLEMENTED 93 // feature not implemented 

^define ST_ NONSUPPORTED 94 // partial implementation; feature not supported 



/* environment-specific */ 
#define ST_BAD_0ID 100 // 

#define ST_BAD_MSG 101 // 

#define ST~0K_CUT 102 // 

jfdefine ST_NOT_INHERITED 103 // 
Ifdefine ST_BAD_PID 104 // 

#define ST_WIN~DFLT 210 // 

Jfdefine ST_BL0CK_ OVERRIDE 300 // 
blocked 



OBJ: invalid uid 

OBJ: invalid msg or object doesn't handle it 
OB J: don't call more virt. objs; return ST_0X 
OBJ: method was abstract; needs to be inherited 
OBJ: invalid pid 

WIN : WindowProc : call DefWinProc, use its result 
KER: attempt to block a thread that is already 



/* String table 

#i£def _ERR_STAT 
struct STAT TXT S 



{ 

_stat 
char 

) ; 



s ; 



#define DEF STATUS (s) 



{ (s) , #s ) 



static struct STAT TXT S err sts tbl[] 



{ 



defj5tatus 
def_status 
def_status 
def"statos 
def~status 
def~status 
def~status 
def_status 
def"~status 



( ST_OK 

( ST_ALL0C 

( ST*NO_ROOM 

( ST_OVERFLOW 

( ST_UNDERFLOW 

( ST__EMPTY 

( S1JEXTLL 

( ST_EOF 

( ST INVALID 



\ * 
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1 DEF_S TATUS ( ST_BAD_VAXUE 

2 DEF~S TATUS ( S T_OUT_OF_RANGE 

3 DEF~STATUS ( ST~NULL_PTR 

4 " "DEP^STATUS ( ST_BAD_SYOTAX 

5 DEF_S TATUS ( ST_BAD_NAME 

6 DEF_S TATUS ( ST_UNEXPECTED 

7 DEF_S TATUS ( ST_PANIC 

8 DEF_S TATUS ( ST_DEADLOCK 

9 DEF_STATUS ( ST^REFOSE 

10 DEF_STAXUS ( ST_NO_ACTION 

11 DEF_STATUS ( STJF AILED 

12 DEF~S TATUS ( ST_NOT_INITED 

13 DEF_STATUS ( ST_NOT_ACTIVE 

14 DEF_STATUS ( ST_NOT_OP£N 

15 DEF_STATUS { ST_IOERR 

16 DEF_STATUS ( ST_BAD_CHKSUM 

17 DEF~STATUS ( ST_NOT_FOUND 

18 DEF_S TATUS ( ST_DUPLICATE 

19 DEF_STATUS ( ST_BUSY 

20 DEF_STATUS ( ST_ACCESSJDENIED 

21 DEF~S TATUS ( ST_PRIVILEGE 

22 DEF_STATUS ( ST_SCOPE_VIOLATION 

23 DEF_STATUS ( ST_BAD_ACCESS 

24 DEF_S TATUS ( ST_PENDING 

25 DEF_S TATUS ( STJTIMEOUT 

26 DEF_STATUS ( ST_CANCELLED 

27 DEF_S TATUS ( ST~ABORTED 

28 DEF^S TATUS ( ST_RESET 

29 DEF_STATUS ( ST_CL£ANUP 

30 DEF_S TATUS ( STjOVERRIDE 

31 DEF^S TATUS ( ST_CANTJBIND 

32 DEF^S TATUS ( ST_FPI_ERROR 

33 DEF_S TATUS ( ST_WRONG_VERS ION 

34 DEF_STATUS ( STJNOT^IMPLEMENTED 

35 DEF_S TATUS ( ST_NOT_S UP PORTED 

36 D£F_S TATUS < ST_BAD_UID 

37 DEF_S TATUS ( STJBAD_MSG 

38 DEF_STATUS ( ST_OK_CUT 

39 * DEF_S TATUS ( ST_NOT_INHERITED 

40 DEF_S TATUS ( ST_BAD~PID 

41 DEF_S TATUS ( ST_WTN_DFLT 

42 DEF STATUS ( STJBLOCK OVERRIDE 

43 ); 
44 



45 #endif // _ERR_STAT 

46 

47 

48 /* status codes 1000 and up axe system- or module- specific 

49 

50 #endif // STATUS_DEFINED 
51 
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* ETC: Global system definitions 

* ' " ' IFACE.H - Interface support 
* 

* Copyright (c) 1994-95 Object Dynamics Corp. All Rights Reserved. 



#ifndef _IFACE_DEFINED 
#define _IFACE_DEFINED 

/* type definitions 

typedef uint _iid; 

#define NO IID 0 



*/ 
*/ 

V 
V 
V 

*/ 
*/ 



#define IID_COMPAT (il ,i2) \ 

{(il) — <i2) || \ 

(11) — IID_I_POL* | | \ 

(12) == IID_I_POLY ) 

/* support macro definitions 

class ^COMPONENT; // forward 

class ^INTERFACE 
{ 

public: 

const iid iid; 

const _COMPONENT *const objp; 

public : 

^INTERFACE (_iid id, ^COMPONENT *op) ; iid (id) , objp (op) { } 
protected: 

virtual -^INTERFACE (void) { } // (hack) - adds vtbl - siicplifies 

#define IFACE_OFFSET_OPO 1 // 1st operation starts at index 1 

1 ; // Keep in sync! 

fldefine INTERFACE (i) \ 
class i : public ^INTERFACE \ 
{ \ 
public: \ 

i (^COMPONENT *op) : ^INTERFACE (IID_##i, op) ( ) \ 
protected: \ 

i (void) : _IOTERFACE (0, NULL) { ) \ 
i (i& ir) : ^INTERFACE (0, NULL) { } \ 
virtual ~i (void) { } 

#define END_INTERFACE \ 



ptr casts 
in vtbl 



#define CONSTANTS public: 

# define BUSES public: 

#define OPERATIONS public: 

#define METHODS public: 

#define DEFINE BUS \ 



i 
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1 struct BUS \ 

2 I 
3 

4 #definejfi05(x) \ 

5 struct x \ 

6 ( 
7 

8 #define END BUS \ 

9 } ; 
10 

11 ^define IOTERFACE_BUS (x) \ 

12 typedef x BUS 
13 

14 #de£ine DEFAULTS <x) \ 

15 BUS (void) { x; } 
16 

17 #define BUS_DEFAULTS (b , x) \ 
fl 18 b (void) { x; } 

*J 20 #def ine FACTORY_DEFAULTS (x) \ 

y 21 FACTORY BUS <void) ( x; } 

O 22 

fU 23 #define OP(o) \ 

fp 24 virtual _stat o (BUS *bp) * 

vy 26 Sendif // _IFACE_D£FINED 



km 

to 
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/* 
/* 
/* 
/* 
/* 
/* 
/* 



IFC: Project Interfaces 
■ I_TERMINAL.H - Terminal control 

Copyright (c) 1994-9S Object Dynamics Corp. All Rights Reserved. 



V 

•/ 
•/ 
*/ 



Sifndef _I_TERMINAL_DEFINED 
fdefine I TERMINAL DEFINED 



BUS ( BJTERMINAL ) 

// terminal identification 
char *namep ; 

uint name sz; 



// terminal name 
// size of name buffer 



// terminal information 
uint 
uint32 
flglS 



- iid 

"interface 



type 




ii 


terminal 


card 




ii 


terminal 


attr 




ii 


terminal 


data 








iid 




u 


terminal 






u 


v-table i 



II connection identification 
id32 conn id; // connection id (as defined by the terminal) 

// pointer to component ($$EV_EVB, see notes) 
// linJc id <$$EV_EVB, see notes) 



^COMPONENT 
"id 



' comp 
link id 



END BUS 



# define IID I TERMINAL 



INTERFACE (I TERMINAL) 



0x03 



CONSTANTS 
enum TYPE 
{ 

T_INPUT = 0, 
T_OUTPUT = 1 , 

) ; 

enum ATTR 
{ 

A_STDSIG 
A_FLOATING 

} ; 



(1UL « 14) , // terminal for standard signal 
(1UL « 15) , // terminal is ok to be unconnected 



/♦ 

BUSES 

INTERFACE BUS ( B TERMINAL ) ; 



/* 

OPERATIONS 

OP ( acquire 
OP ( release 



) ; 
); 
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OP 


[ connect 


2 


OP 


( disconnect 


3 


JOP 


( get_in£o 


4 


— op 


(" get context 


5 


op 


[ set context 


6 


OP 


[ qry_open 


7 


op 


[ qry_get_first 


S 


OP 


( qry_get_last 


9 


OP 


[ qry_get_next 


10 


OP 


[ qry_ge t_prev 


11 


OP 


[ qry_ge t^curr 


12 


OP 


[ qry_close 
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END INTERFACE 



/* declaration macro */ 



18 


#define DECLARE I TERMINAL (c , 1 ) 


\ 


19 


IDEF (c, 1, 


I_TERMINAL) 




\ 


20 


OPDECL ( 


acquire 


) ; 


\ 


21 


OPDECL ( 


release 


) ; 


\ 


22 


OPDECL ( 


connect 


) ; 


\ 


23 


OPDECL ( 


disconnect 


) ; 


\ 


24 


OPDECL ( 


get info 


) ; 


\ 


25 


OPDECL { 


get_context 


) ; 


\ 


26 


OPDECL ( 


set_context 


) ; 


\ 


27 


OPDECL < 


qry_open 


) ; 


\ 


28 


OPDECL ( 


qry_ge t_f ir s t 


) ; 


\ 


29 


OPDECL ( 


qry_ge t_las t 


) ; 


\ 


30 


OPDECL ( 


qryjgetjnext 


) ; 


\ 


31 


OPDECL ( 


qry_get_prev 


) ; 


\ 


32 


OPDECL ( 


qry_get_curr 


) ; 


\ 


33 


OPDECL ( 


qry_close 


) ; 


\ 


34 


END IDEF 






\ 


35 


/* allow for semicolon */ 




\ 



typedef int c## 1 ## DECLARE I TERMINAL DUMMY 



// 


Descriptions : 


// 


on 


acquire 


// 


in : 


namep 


// 




comp 


// 




link id 


// 


out: 


(ip) 


// 




type 


// 




iid 


// 




conn id 


// 


act: 


acquire 


// 


s : 


ST_NOT_J 


// 




ST_NO_R£ 


// 


on 


release 


// 


in : 


namep 


// 






connected 


// 






// 






// 




comp 


// 




linx id 



terminal name 

component on the other side 
link id 

if type is T_INPUT - pointer to the terminal interface 
terminal type (I_TERMTNAL: :T_xxx) 
expected interface id 

connection id assigned for this connection 
3nnection context 
JND - terminal not found 

- terminal cardinality exhausted 



terminal name 
if type is T_OUTPUT 

if type is T_INPUT 
($$ may not be needed and in most cases can not 'be provided) 
component on the other side <J 1 ''^ 

link id 1 Vv> ^v T : 



interface to. which the output was 



interface to release 
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// conn_id - connection id assigned by this terminal on acquire 

// out: void 

// act : .^release terminal 

// s :-- STJNO_ACTION - terminal was not connected 

// (to/via specified interface or component) 

// S T_NO T_FOUND - terminal not found 

// on connect 

// in : namep - terminal name 

// type - terminal type (I_TERMENAL: : T_xxx) 

// iid - expected interface id 

// (ip) - if type is T_OUTPUT - interface to connect to 

// comp - component to connect to 

// linx_id - link id 

// conn__id — connection id assigned by this terminal on acquire 

// out: void 

// act: connect terminal 

// s : STJRER7SE - interface mismatch (e.g., unacceptable IID) 

// ST_NOT_FOUND - terminal not found 

// on disconnect 

// in : namep - terminal name 

// ip - if type is T_OUTFUT - interface to which the output is 

connected 

// if type is T_INFUT - interface to disconnect 

// ($$ may not be needed and in most cases can not be provided) 

// comp - component to disconnect from 

// linx_id - link id 

// conn_id - connection id assigned by this terminal, on acquire 

// out: void 

// act: disconnect terminal 

// s : ST_NO_ACTION - terminal was not connected 

// (to/via specified interface or component) 

// on get_info 

// in : namep - terminal name 

// out: type - terminal type ( I_TEPMINAL : :T xxx) 

// iid - interface id of terminal 

// card - terminal cardinality (static, not current) 

// attr - terminal attributes 

// act: return information about specified terminal 

// s : ST_NOT_FOUND - terminal not found 

// nb : the information returned by this operation is not affected by 

// the current state of the terminal 

// on get_context 
// not implemented 

// on set_context 
// not implemented 

//on qry_open 

// in : namep - query string 

// out: ctx - query context for subsequent qry_xxx operations 

// act: open query on terminal namespace 

// s : ST_N0_RO0M - too many open queries * , " , * 

// STJBAD_SYNTAX - bad query syntax 

// on qryjget first * l '^ ti 
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1 // in : nainep - buffer for name or NULL 

2 // (name_sz) - size of buffer, [bytes] 

3 // _ ctx - query context from previous qry_xxx operation 

4 // out : j^namep) - terminal name 

5 // ctx - query context for subsequent qry_xxx operation 

6 // act: get first matching terminal name 

7 // s : ST_NOT_FOUND - no matching terminals 
8 

9 //on qry_get_last 

10 // in : namep - buffer for name or NULL 

11 // (name_sz) - size of buffer, [bytes] 

12 // ctx - query context from previous qry_xxx operation 

13 // out: (*namep) - terminal name 

14 // ctx - query context for subsequent qry_xxx operation 

15 // act: get last matching terminal name 

16 // s : S T_NOT_FO*JND - no matching terminals 
17 

18 //on qry_get_next 

19 // in : namep - buffer for name or NULL 

20 // (name_sz) - size of buffer, [bytes] 

^ 21 // ctx - query context from previous qry_xxx operation 

'0 22 // out: (*namep) - terminal name 

fp 23 // ctx - query context for subsequent qry_xxx operation 

py 24 // act: get next matching terminal name 

}fi 25 // s : ST_N0T_FOUND - no more matching terminals 

% 26 

^ 27 //on qry_get_prev 

^ 28 // in : namep - buffer for name or NULL 

5= 29 // (name_sz) - size of buffer, [bytes] 

|3 30 // ctx - query context from previous qry_xxx operation 

|p 31 // out: (*namep) - terminal name 

£*i 32 // ctx - query context for subsequent qry_xxx operation 

33 // act: get previous matching terminal name 

34 // s ST NOT FOUND - no more matching terminals 



M 35 



36 //on qry_ge t_cur r 

37 // in : namep - buffer for name or NULL 

38 // <name_sz) - size of buffer, [bytes] 

39 // " ctx - query context from previous qry_xxx operation 

40 // out: (*namep) - terminal name 

41 // act: get current terminal name in query 

42 // nb : ctx is unchanged 

43 

44 //on 9^Y_ close 

45 // in : ctx - query context from qry_open or another qry_xxx operation 

46 // out: void 

47 // act: close query on terminal name space 
48 

49 // $$EV EVB — fields used by the event bus terminal interface 

50 // Note: comp in the bus is provided for use by connectivity components only. 

51 // It should not be used by regular components £ assemblies. 

52 // comp contains pointer identifying the component at .the other side 

53 // of the linx. "v- * 

54 // Both linx id and comp may be used for identification of the particular 

55 // connection on a terminal . They should not be interpreted ^n any way 

56 // nor the comp should be dereferenced. Sometimes? ; the , ip -field onf 

57 // disconnect and release may be used for connection identification, too. 
58 

59 // Note: the assembly manager (dflt assembly implementation)'' 4oes- t \nbt store 
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V 



// the connection id — so it may not be provided on disconnect/release 

// Notej $$ on disconnect ip may not be provided in many cases: 
// .•-""**). '"hen output array is connected to input array 
// b) when assy output is connected to input array 

// In both examples above the input ptr cannot be obtained from the output 

// and therefore cannot be passed on input's disconnect. 

// (Generally, none of the existing parts uses ip for identification) 

#endif // I TERMINAL DEFINED 
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/* - - 






/* 






/* 






/* 


Copyright (c) 1994 








Jfifndef 


_I_PROP_DEFINED 




# define 


_I_PROP_DEFINED 




/* 


type values */ 




#define 


PT_USER 


0 


# define 


PT_INT 


1 


# define 


PTJJINT 


2 


# define 


PT_CHAR 


3 


# define 


PT_UPCHAR 


4 


# define 


PT_STRING 


5 


ff define 


PT_NAME 


6 


ff define 


PT_DATA 


7 


& define 


PT_N0NE 


8 



IFC: Project Interfaces 
I_PROP.H - Property 



// 
// 



user defined 
signed int 



// unsigned int 

/ / uchar 

/ / upcaseduchar 

// asciiz, no multiple spaces 

// upcased STRING 

// data string (Oxlb,'-0', etc) 

// 1st invalid value of .type 



BUS ( B PROP ) 



char 
size_t 
uint32 
void 
size_t 
size_t 
ctx 



*namep 
naine_sz 
type 

*P 
sz 
len 
ctx 



END_BUS 

#define IID_I_PROP 0x02 
INTERFACE (I PROP) 



CONSTANTS 



/♦ 

BUSES 

INTERFACE BUS 



( B PROP ) ; 



/* 

OPERATIONS 

OP ( get 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 

OP 



( set 
( chx 
( get_ 
( qry] 

( q*Y 
( qry_ 

( qry 

( qry_ 
( qry 



info 
open 

get_first 

_get_last 

get_nextr 

get_prev 

get_curr 
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so. 

to 

B 



OP ( qry close 



) ; 



20 
21 
22 
23 
24 
25 
26 
27 
2S 
29 
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31 
32 
33 
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36 
37 
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41 
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END INTERFACE 



/* declaration macro */ 



fldefine DECLARE I PROP(c,l) 



8 


IDEE (c, 1 




I_PROP) 


9 


OPDECL 


( 


get 


10 


OPDECL 


( 


set 


11 


OPDECL 


( 


chk 


12 


OPDECL 


( 


get info 


13 


OPDECL 


( 


qry open. 


14 


OPDECL 


( 


qry_ge t_f ir s t 


15 


OPDECL 


( 


qry get_last 


16 


OPDECL 


( 


qry_ge t_ nex t 


17 


OPDECL 


( 


qry_get_prev 


18 


OPDECL 


( 


qry get__cuxr 


19 


OPDECL 


( 


qry__close 



END_IDEF 

/* allow for semicolon */ 
typedef int c##_l_## ^DECLARE 

// Descriptions 



PROP DUMMY 



// note: on get, set and chJc - if value type is specified and it doesn't match 
the 

// internal type of the property, the component may (implementation- 

defined) 

// convert the value to the appropriate type; 



on 
in 



act: 
s : 



// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



// on 
// in 
// 
// 
// 

// out 

// act 

// s 

// 

// 

// 

// 

// on 



get 

namep - property name 

p - buffer for value or NULL 

(sz) - size of buffer (if p not NULL) , [bytes] 

type - requested type or IP_NONE for any 

out: ( # p) - value 

len - value length (for both fixed & var size types) , [bytes] 

type - property type 



get property value 

ST BAD NAME - property name not found 

ST OVERFLOW - buffer too small 

ST REFUSE - incorrect type 

ST BAD ACCESS - property is write-only 



set 
namep 
P 

(len) 
type 
void 

set property value 



property name 

buffer for value or NULL to clear 
size of value (for var size values) 
type or IP_NONE if not known 



[bytes] 



ST_BAD_NAME 

ST_BAD_VALUE 

ST_OVERFLOW 

ST_REFUSE 

ST_BAD_ACCESS 

chx 



- property name not found 

- bad property value 

- value too long 

- incorrect type 

- property is read-only 
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// in 

// 

// 

// " 
II out 
// act 
// s 
// 
// 
// 
// 



// on 
// in 
// out 
// act 
// s 
// nb 
// 

// on 
// in 
out 
act 



// 
II 
II 
II 



- property name 

- buffer for value or NULL to 'clear 

- size of value (for var size values) 

- value type or IP_NONE if not known 



namep 
P 

Jlen) 

.--"type 
void 

check if property may be set to value 



[bytes) 



(valchx) 



ST_BAD_NAME 

ST_BAD_VALUE 

ST_OVEBFLOW 

ST_REFUSE 

ST BAD ACCESS 



- property name not found 

- bad property value 

- value too long 

- incorrect type 

- property is read-only 



// on 
// in : 
II 
II 

II out: 
II 

II act: 
// s : 

// on 
// in : 
II 
II 

II out: 
II 

II act: 
// s : 

// on 
// in : 
If 
II 

If out: 
// 

// act: 
// s : 

// on 
// in : 
If 
ff 



get_info 

namep - property name 
type - property type 

get information about specified property 
ST BAD NAME - property name not found 

the information returned by this operation is not affected by 
the current value of the property 

qry_open 

namep - query string 

ctx - query context for subsequent qry_xxx operations 

open query on property space 
ST_NO_ROOM - too many open queries 
S T_BAD_S YNTAX - bad query syntax 

qry_ ae t_£ irs t 

namep - buffer for name or NULL 
(name_sz) - size of buffer, [bytes] 

ctx - query context from previous qry_xxx operation 

(* namep) - property name 

ctx - query context for subsequent qry_xxx operation 

get first matching property name 

S TJNOT_FOUND - no matching properties 

qryjget_last 

namep - buffer for name or NULL 
(name_sz) - size of buffer, [bytes] 

ctx - query context from previous qry_xxx operation 

(*namep) - property name 

ctx - query context for subsequent qry_xxx operation 

get last matching property name 

ST NOT FOUND - no matching properties 



qryjget_next 



- buffer for name or NULL 
size of buffer, [bytes] 

query context from previous qry__xxx operation 
property name 

query context for subsequent qry_xxx operation 
get next matching property name v>/ 
ST NOT FOUND - no more matching properties . "V 



namep 
(name_sz> 
ctx 
(* namep) 
ctx 



qry_ge tjprev 



buffer for name or NULL 
_sz> - size of buffer, [bytes] 
ctx - query context from previous qryjcxx opera tioh 
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15 


// 


16 


// 


17 


// 
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out: (*namep) - property name 

ctx - query context for subsequent qry xxx operation 

act: get previous matching property name 
s - T J : -ST_JJOT_FOUND - no more matching properties 

on qry_get_curr 

in : namep - buffer for name or NULL 
(namejz) - size of buffer, [bytes] 

ctx - query context from previous qry_xxx operation 

out: (*namep) - property name 
act: get current property name in query 
nb : ctx is unchanged 

on qry_close 

in : ctx - query context from qry_open or another qry_xxx operation 

out: void 

act: close query on property space 
idif // I PROP DEFINED 



> r. 
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IFC: Project Interfaces 
I_FACTORY.H - Component creation / destruction 
Copyright (c) 1994-95 Object Dynamics Corp. All Rights Reserved. 



#ifndef _I_FACTORY_DEFINED 
#define I FACTORY DEFINED 



ifdefine IID I FACTORY 



INTERFACE (I FACTORY) 



0x01 



CONSTANTS 
emim 
{ 

A_PRIMARY 

A_NO_ALLOC 

A_GENERIC 

) / 



(1UL « 14) 
(1UL « 13) 
(1UL « 12) 



// create primary object (factory) 

/ / don ' 1 call new to alloc memory 

// generic factory bus (no ext. data) 



/* 

BUSES 

DEFINE J3US 
flg32 

^COMPONENT 
^INTERFACE 
^INTERFACE 
_ctx 

end~bus 



attr; 
♦objp; 
♦termp 
♦propp 

ctx 



// factory attributes 

// ptr to component or memory 

// terminal interface 

// property interface 

// creation context or NO CTX 



/* — — 

OPERATIONS 

OP ( create jdf Its ) ; 

OP ( create ) ; 

OP ( destroy ) ; 

OP ( get_part_if c ) ; 

END_INTERFACE 

/* declaration macro */ 

# define DECIARE_I_FACTORY (c,l) 
IDEF (c, 1, ^FACTORY) 

OPDECL (create ) ; 

OPDECL (createjiflts ) ; 

OPDECL (destroy ) ; 

OPDECL (getjpart_if c ) ; 
END_IDEF 

/* allow for semicolon */ 



\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 



typedef int c##_l_##_DECLARE_I_FACT0RY_DX7MMY 



/* Descriptions 

// on create jdf Its (struct BUS or derived) 

FIG. 22A 



V 



1 // in : void 

2 // out: attr - default attributes 

3 // objp - NULL 

4 // actr "fill FACTORX_BUS with defaults 

5 

6 // on create (struct BUS or derived) 

7 // in : attr - object attributes <A_xxx) 

8 // (objp) ' Ptr to allocated memory for object instance (if A_NO_ALLOC) 

9 // ctx - additional context or NO CTX 

10 // out: objp - ptr to new object 

11 // tennp - pointer to the terminal interface of the part 

12 // propp - pointer to the property interface of the part 

13 // act: create new object 

14 // nb : if A_GENERIC is set, then the bus passed is strictly I_FACTOR¥ : : BUS and 

15 // not a derived one. 

16 // nb : ctx=NO_CTX is always accepted; some components may allow additional 

17 // parameters in/ through this field 
13 

- 19 // on destroy (struct BUS or derived) 

0 20 // in : void 

sQ 21 // out: void 

22 // act: destroy object 

h 23 

gg; 24 // on get_part_ifc (struct BUS or derived) 

]d 25 // in : void 

¥J 26 // out: termp - pointer to the terminal interface of the part 

*y 21/1 P^opp - pointer to the property interface of the part 

'%$■ 28 // act: return part interfaces 

30 tfendif // _I_FACTORY_DE F I NED 

In 

|c8C 
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* CLP: Collections Paxts 

* CP_BBA.CPP - Bag on Byte Array 
* 

* Copyright (c) 1993-1994 Object Dynamics Corp. All Rights Reserved. 



# include <rtx_pre.h> 
# include <stdde£.h> 
if include <stdlifa.h> 
# include <zneznory.h> 
# include <rtx_post.h> 

ff include <rtx.h> 
# include <asm. h> 
& include <thp.h> 

f include <iface.h> 
# include <paxt.h> 

# include <i_f actor. h> 
# include <i_prop.h> 
# include <i_drain.h> 
# include <i_bag.h> 
# include <i agin* h> 
# include <i fay tear. h> 



/* Definitions 



struct CP_BBA_ENTRY HDR 

{ 



enum ATTR 
{ 

A_VALID 

A_FREE 

A_KILL£D 

}; 



flg32 
uint32 

»; 



- VALID, 
= FREE , 
= KILLED, 



attr; 
card; 



// attributes [A_VALID, A_FREE, A_KILLED] 
// cardinality 



/*# Component Definition 



# define CP BBA NAME "CP BBA" 



PART { CP BBA ) 



/* 

BUSES 

DEFAULT FACTORY BUS ( CP BBA ) ; 



/* 

INPUTS 

IDECL ( CP_BBA , factory , I_FACTORX 
IDECL ( CPJ&BA , term , I_TERMINAL 

IDECL ( CP~BBA , prop , I_PROP 



) ; 
); 
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IDECL ( CP_BBA , bag 

. IDE£L__RST (CP_BBA> ; 

OUTPUTS 

ODECL ( CP BBS , arr 



END_PART // CP_BBA 

#ifde£ BIT32 

# define hmemcpy xnemcpy 

t define HUGE 
#else 

# define HUGE huge 

lendif 



, I BAG 



, I BYTEARR 



/* — - Definitions — 
# define AGM_CHUNX 
BEGIN SELF ( CP BBA ) 



1024 



// data 
uint32 
void 
uint32 



n_en tries ; 
♦buffp; 
buff sz; 



// number of entries 

// buffer for one entry 

// buffer size (dep. on data_sz) 



// properties 

uint32 data_sz; 

uint32 key_sz; 

uint32 key_off; 

char name [64] ; 
END_SE1F 

BEGIN_CLASSJDATA ( CP_BBA ) 

uint 1 6 ins tance_counter ; 

END CLASS DATA 



// data size 
// key size 
// key offset 



// 



Interface declarations 



DECLAR£_I_FACTORx ( CP_BBA, factory ) ; 
DECIARE~I~TERMINAL ( CPJBBA, term ) ; 

DECIARe" i Z PR0P * CP_BBA, prop ) ; 

DECLARE^I^BAG ( CP_BBA, bag ) ; 

DECLARE_RST (CP_BBA) ; 

/* I/O tables 



IOTUTJTABLE 

INPUT (CPJBBA, prop 

IKPUT (CPjaaA, bag 

INPUT_RST (CP_BBA) 
END_INPUT_TABLE " 

OUTFUTJTABLE 

OUTPUT (CP BBA, arr 



I_PROP 
I BAG 



, I BxTEARR ) 
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END_OUTPUT_TABLE 

/* Constants £ tables 



PROPERTIES 

/* type name base field mi n max 

PROP_UINT ("DATA^SIZE" , SELF, data sz 

PROP_UINT < rt KEY_SIZE" , SELF, key sz 

PROP_UINT ("X£X_OFFSET" , SELF , key~~o£f 

PROP_STRING ( " name" , SELF , name 
END PROPERTIES 



1 


, 1024 


) , 


1 


, 1024 


) , 


0 


, 1023 


>, 


0 


, 64 


>, 



I nit / Cleanup 



INIT (CP_BBA) 

{ 

/** init class data */ 
cp->instance_counter = 0 ; 

. REGISTER (CP_BBA) ; 

return (ST_OK) ; 

} /* INIT (CP_BBA) */ 

CLEANUP <CP_BBA) 
{ 

DEREGISTER (CP_BBA) ; 

return (ST_0K) ; 

} /* CLEANUP <CP_BBA) */ 

/* Constructors ~ — — — 



DEFAULT_PART CONSTRUCTORS (CP BBA) ; 



/* ' Operations: factory — — — 

DEFAULT_PART_FACTORX ( CP_BBA , factory ) ; 
DEFAULT_PART_TERMINAL (CP_BBA, term ); 
DEFADLT_PART~PROP (CP~BBA, prop ) ; 

/* Operations 



METHOD (CP_BBA, create_dflts , FACTOR3MBUS ) 
( 



// ... 



return (ST_OK) ; 

) END_METHOD /* CP_BBA, create_d£lts */ 
METHOD <CP_BBA, create , FACTOR* JBUS) ^« 
_stat s; V' 
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if (bp = NULL) return (ST NULL PTR) 



/** open interfaces */ 

OPEN/INtERFACE (CP_BBA, factory ) 
I_FACTORY: :A_PRIMARY) 

(CP_BBA, term ) 

(CP_BBA, prop ) 

(CP_BBA, bag ) 
(CP BBA) ; 



if (bp->attr & 
OPEN_ INTERFACE 
OPEN_INTERFACE 
OPEN_INTERFACE 
OPEN RST 



return (ST OK) 



/ / valid primary obj 



/** init self */ 
sp ->n_en tries « 0 ; 
sp->buffp = NULL ; 

sp->buff_sz - 0 
sp->data_sz » 2 
sp->3cey_sz « 2 
sp- »cey_of£ =» 0 

/** internal reset */ 

(void) call (sp->thisp->iRST, raise, NULL) ; 

/** special processing for default naxae */ 
os_con_sprintf (sp->naae, '^.SOsfcd", CP BBA NAME , 



return (ST_OX) ; 

} END_METHOD /* CP_BBA, create */ 

METHOD (CP_BBA, destroy, FACTORY _BUS ) 
{ 

/** close interfaces */ 

CLOSE INTERFACE (CP BBA, factory 



++ (cp->instance counter) ) 



CLOS E ^INTERFACE 
CLOSE^INTERFACE 
CLOSE~INTERFACE 
CLOSE RST 



(CP_BBA, term 
(CP_BBA, prop 
(CP_BBA, bag 
(CP BBA) ; 



/** free entry buffer */ 

if (sp->bu£fp ! = NULL) (void) os_smp_f ree (sp->buffp) 

/** init self */ 
sp->n_en tries - 0 ; 
sp->buffp m NULL; 

sp->buf£ sz = 0; 
sp->data_sz «■ 2 ; 

return (ST_0X) ; 

> END METHOD /* CP BBA, destroy */ 



/* Operations: bag 



OPERATION ( CP_BBA, bag, add 
{ 

I_BXTEARR: : BUS ab ; 

uint32 i ; 

CP_BBA_ENTRY_HDR *hdrp ; 

byte * da tap ; 

stat s ; 



/** valchk ♦/ 
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1 if (bp »e NULL) return (ST_NULL_PTR) ; 

2 if (bp-Xiatap = NULL) return (ST_INVALID) ; 
3 

4 /**.jTnte-rnal init */ 

5 hdrp = (CP_BBA_ENTRY_HDR *)sp->buffp; 

G da tap » (byte *)sp->buffp + sizeof (*hdrp) ; 
7 

8 /** lookup */ 

9 for (i « 0; i < sp->n_entries ; i++) 

10 { 

11 /** read entry */ 

12 ab .p = sp->buffp; 

13 ab.sz » sp->buf£_sz; 

14 ab.pos = i * sp->buff sz; 

15 ab.len = sp->bu£f sz; 

16 ab.attr » I_BYTEARR: :A_EXACT; 

17 s = out (arr, read, £ab) ; 

18 if (s = STJEOF) return (STJJNEXPECTED) ; 
a» 19 if_ret (s, s) ; 

^ 20 

21 /** skip if eznpty */ 

P 22 if ( (hdrp->attr CP_BBA_ENTR*_HDR : :A_FR£E) II 

© 23 (hdrp->attr -= CP_BBA_ENTRY_HDR: :A KILLED) ) continue; 

ft] 24 ~ 

25 /** skip if different */ 

7^ 26 if (memcmp ( (void *) (da tap + sp->key off) , 

J1 27 (void *) ((byte *)bp->datlp + sp->key_off> , 

28 sp->key_sz) 0) continue; 
< 29 

0 30 /** sanity chk */ 

p\ 31 if (hdrp->caxd = 0) return (ST_UNEXPECTED) ; 

? ^ 33 /** increment cardinality */ 

^ 34 if (hdrp->card < MAXUINT32 - 1) (hdrp->card) ++ ; 

fe* 35 else return ( S TjO VERFLO W ) ; 
M= 36 

37 /** write back header only */ 

38 ab .p a hdrp; 

39 ab.len «* sizeof (*hdrp) ; 

40 ab.pos » i * sp->bu£f sz; 

41 ab.attr « 0; 

42 s « out (arr, write, £ab) ; 

43 if (s oo ST_OVERFLOW) return <ST_UNEXPECTED) ; 

44 if_ret (s , s) ; 
45 

46 /** pass cardinality */ 

47 bp->card » hdrp- >card ; 

48 

49 /** return */ 

50 return (ST_OK) ; 

51 } // for 
52 

53 /** add */ y ^ " ; 

54 for (i = 0; i < sp->n entries; i++) 

56 /** read entry */ \ Xr « > 

57 ab.p o sp->buf fp ; ^ 

58 ab.sz = sp->buff_sz; 

59 ab.pos « i * sp->buff_sz; ^) 
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1 ab.len » sp->buff_sz; 

2 ab.attr = I_BYTEARR: :A_EXACT; 

3 s = out (axr, read, £ab) ; 

4 ' l£r-(S> — ST_£OF) return (ST_UNEXPECTED) ; 

5 if_ret <s, s) ; 
6 

7 /** write if empty */ 

8 if <(hdrp->attr = CP_BBA_ENTRY_HDR : :A_FREE) ! =» 0) 

9 { 

10 /** init header */ 

1 1 hdrp->card « 1 ; 

12 hdrp->attr = CP_BBA_ENTRY_HDR: :A_VALID; 
13 

14 /** init data */ 

15 memcpy ((void *)datap, bp->datap, sp->data si) ; 
16 

17 /** write header and data */ 

18 ab.p = sp->bu£fp; 

19 ab.len = sp->buff_sz; 

$p 20 ab.pos = i * sp->buff_sz; 

\Q 21 ab.attr = 0; 

frj 22 s « out (arr, write, &ab) ; 

jh 23 if (s — ST_OVERFLOW) return (ST_UNEXPECTED) ; 

|H 24 if ret (s, s) ; 
25 

V s 26 /** pass cardinality */ 

43 27 bp->card = hdrp->card; 

28 

$ 29 /** return */ 

30 return (ST_OK) ; 

S 31 J 

£ 32 ) // for 

y 33 

<P 34 /** chJc for overflow */ 

p 35 if (sp->n entries >» MAXUINT32 - 1) return (ST_NO_ROOM) 

^ 36 

! 37 /** init header */ 

38 hdrp->card = 1; 

39 hdrp->attr » CP BBA ENTRY_HDR: :A_VALID; 
40 

41 /** init data */ 

42 memcpy ((void *) da tap , bp->datap, sp->data_sz) ; 
43 

44 /** append */ 

45 ab.p » sp->buffp; 

46 ab.len = sp->buf f__sz ; 

47 ab.pos » sp->n_entries * sp->buf f_sz ; 

48 ab.attr - IJBYTEARR : : A_GROW ; 

49 s = out (arr/ write, 4ab) ; 

50 if <s =» S TjOVERFLOW) return ( S T_UNEXPECTED ) ; 

51 if_ret (s, s) ; 
52 

53 /** increment number of entries */ 

54 (sp->n entries )++; 



55 



56 /** pass cardinality */ x 

57 bp->card - hdrp->caxd; * 
58 

59 return (ST OK) ; 
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1 ) ENDJDPERATION /* bag, add */ 

2 

3 // TO DO: other operation of I_BAG to be implemented here« 

4 - " J^--- . 

5 /* Signals 

6 

7 SIGNAL_RST ( CP_BBA ) 

8 ( 

9 I_AGM::BUS ab; 
10 stat s ; 
11 

12 /** free entry buffer */ 

13 if (sp->buffp !» NULL) (void) os_smp_f ree <sp->buffp) ; 
14 

15 /** init self */ 

16 sp->n entries « 0 ; 

17 sp->buffp = NULL; 

18 sp->buff_sz = sizeof ( CP_BBAJENTRY_HDR) + max (sp->data_sz , 1) ; 
19 

^ 20 /** alloc entry buffer */ 

^ 21 if_ret (s , os sim?_alloc (sp->buf f_sz , £ (sp->buffp) ) ) ; 

S 22 

*P 23 return (ST_0K) ; 

flj 24 ) END_SIGNAL /* RST */ 

m 25 . 

> 26 



V- 
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/* 
/+ 
/* 
/* 



EVP: Event Flow Parts 
EV_PCN.CPP - POLY T-Connector 
Copyright (c) 1994-95 Object Dynamics Corp. All Rights Reserved. 



/* Version 1.10 



*/ 

V 
V 
V 
V 

*/ 

*/ 



# include <rtxjpre.h> 
#include <stddef.h> 
#include <stdlib.h> 
#include <rtx_j>ost. h> 

tinclude <rtac.h> 
# include <asm.h> 

# include <i£ace.h> 

#include <paxt.h> 

# include <assembly.h> 

# include <i_f actor. h> 
# include <i_prop.h> 
# include <i_term.h> 
#include <i_drain.h> 
#include <i_poly.h> 

# define EV_PCN_NAME n EV__PCN w 

ASSEMBLY (EV PCN) 



/* 

BUSES 

DEFAULT_FACTORYJ3US (EV_PCN) ; 



/* 

INPUTS 
IDECL 
IDECL 
IDECL 
IDECL 
IDECL 
IDECL 



( EV_PCN 
( EV"PCN 
( EVJPCN 
( EV_PCN 
( EVJPCN 
( EV PCN 



OUTPUTS 

ODECL ( EV_PCN 
ODECL ( EV PCN 



END ASSEMBLY 



factory 

term 

termi 

prop 

propi 

in 



out 
aux 



I_FACTORY 

IJTERMINAL 

I_TERMINAL 

I_PROP 

I~PROP 

I~POLY 



); 
); 
); 
); 
); 
); 



I_POLY 
I DRAIN 



); 
); 



/* Definitions - 

BEGIN_SELF (EV_PCN) 
DEFAULT_ASM_SELF ; 
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/* group properties */ 
ui nt3 2 ev_idjai n ; 

ui n t3 2 e v_i d_max ; 

END_S ELF" 

BEGINj:LASS_DATA (EV_PCN) 

// none 
END_CLA£ S_D ATA 

DECLAR£_ASM (EV_PCN) ; 

/* I/O tables 



INPUT JTABLE 

INPUT (EV_PCN, prop 

INPUT (EV_PCN, in 

END_INPUT_TABLE 

OUTPUT_TABLE 

OUTPUT_I (EV_PCN, out 
OUTPUT_I (EV_PCN, aux 

END_OUTPUT_TABL£ 

/* Constants & tables - 



IJPROP 
I POLY 



I_POLY ) 
I DRAIN ) 



ASMJPARTS 

NEW_PART ( p2d, EV_P2D ) 
NEW_PART ( ten, EVJTCN ) 
NEW~PART ( d2p, EVJ52P ) 

END_ASM_PARTS 

ASM_PARAMETRIZATION 

// none 
END ASH PARAMETRI 2ATION 



37 


ASM LINKS 










38 


7/ 




from 


output 


to input 


39 












40 


LINK 


( 
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LINK 
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LINK 
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ten, 
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END_ASM_LINKS 

ASM_PROPERTY_GROUP ( ev_id_min_group ) 

ASM_PROP_MEMBER ( ten , OUT . EV_ID_MIN ) 
ASM_PROP_MEMBER ( ten , AUX.EV^ID^MIN > 

END__ASM_PROPERTY_GROUP " 

A£M_PROPERTY_GROUP < ev_id_max_jgroup ) 

ASM_PROP_MEMBER ( ten , OUT • EV_ID_MAX ) 
ASM_PROP_MEMBER ( ten , AUX . EV~ID_MAX ) 

END ASM PROPERTY GROUP ~ 



ASM_PROPERTIES 

ASM PROP ALIAS 



( OUT. INVERT 



ten , OUT. INVERT 
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1 ASM_PROP ALIAS ( AUX. INVERT , ten , AUX. INVERT ) 

2 

3 ASM_PROP_GROUP ( EV_ID_MIN , ev_id_min_group ) 

4 AStt_PRQP_GROUP ( EV_ID_MAX , ev_id_max group ) 

5 END_ASM^PROPERTIES ~" 
6 

7 ASM_GROUPJ?ROPERTY_DESC 
8 

9 /* type name base field min max */ 

10 

11 PROP_UINT ("EV_ID_MIN ,t , SELF, ev_idjnin , MINUINT32 , MAXUINT32 ) 

12 PROP_UINT ("EV_ID_MAX" , SELF, ev~id_max , MINUINT32 , MAXUINT32 ) 
13 

14 END_ASM GROUP_PROPERTYJDESC 
15 

16 DEFAULT_ASM <EV_PCN) ; 
17 
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typedef int c## 1 ## DECLARE I POLY DUMMY 
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